-- card: 19674 from stack: in.0
-- bmap block id: 20680
-- flags: 0000
-- background id: 19442
-- name: x"&fld 1


-- part 2 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=25 top=295 right=317 bottom=125
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Initialize?
----- HyperTalk script -----
on mouseUp
  Answer "Initialize Beta or VHS format?" with "VHS" or "Beta"
  if it is "VHS" then
    go third card
  else
    go fourth card
  end if
end mouseUp



-- part 3 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=402 top=39 right=59 bottom=486
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Go to Tape
----- HyperTalk script -----
on mouseUp
  global tape
  put empty into tape
  goTape
end mouseUp



-- part 4 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=402 top=58 right=79 bottom=486
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Find Time
----- HyperTalk script -----
on mouseUp
  FindTime
end mouseUp



-- part 5 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=411 top=132 right=151 bottom=489
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Index
----- HyperTalk script -----
on mouseUp
  go second card
end mouseUp



-- part 6 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=411 top=150 right=169 bottom=489
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Card
----- HyperTalk script -----
on mouseUp
  NuCard
end mouseUp



-- part 7 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=438 top=176 right=206 bottom=473
-- title width / last selected line: 0
-- icon id / first selected line: 20098 / 20098
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  go to stack "Home"
end mouseUp




-- part 9 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=19 top=35 right=57 bottom=119
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: VCR Data
----- HyperTalk script -----
on mouseUp
  set visible of cd fld data to not visible of cd fld data
end mouseUp



-- part 10 (field)
-- low flags: 80
-- high flags: 0001
-- rect: left=66 top=92 right=265 bottom=406
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 15026
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Data


-- part 11 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=16 top=164 right=208 bottom=64
-- title width / last selected line: 0
-- icon id / first selected line: 14767 / 14767
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Help
----- HyperTalk script -----
on mouseUp
  show cd fld "About"
end mouseUp



-- part 12 (field)
-- low flags: 81
-- high flags: 0007
-- rect: left=13 top=27 right=334 bottom=509
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 15026
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: About
----- HyperTalk script -----
on mouseUp
  hide me
end mouseUp


-- part contents for card part 12
----- text -----
  Several features are available in this stack.  One may enter new cards, of course, and sort tapes according to number.  Both Beta or VHS tapes can be included in the catalog.  The Index Card can generate an index of themes from the Theme field for quick browsing.
   The Time Remaining feature must be initialized for each VCR.  Click on the "Initialize" button for more details.  Enter the last number used to generate the time left.  This initialization need be done only once per VCR.  
  "Find Time" can find time at end of tapes.  It can find any gap of n minutes or fill as close as possible to the end of the tape.
   There is a small field inside the time remaining field.  This is for tapes which have had sections stripped without destroying the whole tape.  Simply put the number that the tape was stripped to in here and the time will be adjusted accordingly.

Any comments and/or the shareware fee of $5 should be sent to:
Mike Kazmierczak
X Systems
1789 Brandy Dr. SE
Conyers GA 30208-3032

GEnie: M.KAZMIERCZ1
UUCP: gatech!nanovx!kaz
BITNET: tegammk@gitnve2
INTERNET: kaz@nanovx.UUCP@gatech.edu


-- part contents for card part 10
----- text -----

Place important VCR data here.  Serial numbers, repair tips, etc.

Click on VCR Data button to hide.